10 REM **  COLOUR PICTURE DISPLAY   **
20 REM **                           **
30 REM **     DON WHITE             **
40 REM **     47 ARIEL COURT        **
50 REM **     NEPEAN, ONTARIO       **
60 REM **     613-829-2082          **
70 REM **                           **
80 REM *******************************
90 REM
100 REM ** DISPLAY HIRES SCREEN **
110 REM
115 PRINT"[147]":REM CLEAR COLOUR NYBBLE MAP
120 V=53248:REM VIDEO CHIP
130 POKEV+17,59:POKEV+24,25
140 REM
150 REM ** LOAD COLOUR DATA **
160 REM
170 OPEN8,8,8,"DIANE DATA.D,S,R"
180 FORI=0TO999
190 INPUT#8,CD
200 POKE1024+I,CD
210 NEXT
220 CLOSE8
230 GETRE$:IFRE$=""THEN230
240 REM
250 PRINT"[147]":REM CLEAR COLOUR NYBBLE MAP
260 REM
270 REM DISPLAY LORES SCREEN **
280 REM
290 POKEV+17,27:POKEV+24,21